www.gusucode.com > 环保时代家庭财务管理系统 EPffms v4.0 > 环保时代家庭财务管理系统 EPffms v4.0\code\eptimehome\index.asp
<!--#include file="admin_inc.asp"-->
<%
'****************************************************
'Code for EptimeFFMS
'Vision : v4.0
'****************************************************
dim action
action = getForm("action", "get")
Select case action
case "login" : login
case "check" : checkLogin
case "logout" : clearPower
case "notice" : notice
case else : main
End Select
terminateAllObjects
Sub notice
checkPower
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gbk" />
<link href="images/admin.css" rel="stylesheet" type="text/css" />
<script src="js/common.js" type="text/javascript"></script>
<script src="images/main.js" type="text/javascript"></script>
</head>
<body>
<div class="container" id="cpcontainer">
<script type="text/JavaScript">if(parent.$('admincpnav')) parent.$('admincpnav').innerHTML='系统首页';</script>
<script src="http://www.eptime.cn/reg/searchdate.asp?keywords=<%=sitereg%>&keywords1=<%=email%>"></script>
<h4 class="mt20">帐户信息中心</h4>
<ul class="news pub_ulist">
<iframe src="center_zhang.asp" width="100%" height="60" frameborder="0" scrolling="yes" ></iframe>
</ul>
<h4 class="mt20">收支信息中心</h4>
<ul class="news pub_ulist">
<iframe src="center_shou.asp" width="100%" height="100" frameborder="0" scrolling="yes" ></iframe>
</ul>
<h4 class="mt20">系统最新消息</h4>
<ul class="news pub_ulist"><script src='http://www.eptime.cn/update.js'></script></ul>
</div>
<%
viewFoot
End Sub
Sub checkLogin
dim username,pwd,validcode,ip,errStr,rsObj,random,errFlag,agent
agent=getAgent : errFlag = false : errStr="<br>"
if isOutSubmit then errFlag = true : errStr = errStr&"非法外部提交被禁止<br>"
username = replaceStr(getForm("input_name","post"),"'","") : pwd = replaceStr(getForm("input_pwd","post"),"'","") : validcode = replaceStr(getForm("input_yzm","post"),"'","") : ip = getIp
if Session("GetCode")<>validcode then errFlag = true : errStr = errStr&"验证码错误<br>"
if isNul(username) or isNul(pwd) then errFlag = true : errStr = errStr&"用户名或密码为空<br>"
set rsObj = conn.db("select * from {pre}Admin where UserName='"&username&"'","records1")
if rsObj.eof then
errFlag = true : errStr = errStr&"用户名或密码不正确<br>"
else
if clng(rsObj("Working")) = 0 then errFlag = true : errStr = errStr&"管理员被锁定<br>"
if len(rsObj("Password"))>25 then pwd=md5(pwd) else pwd=pwd
if trim(rsObj("Password")) <> pwd then errFlag = true : errStr = errStr&"用户名或密码不正确<br>"
if not errFlag then
wCookie "UserName",rsObj("UserName")
wCookie "UserID",rsObj("ID")
wCookie "AdminPower",rsObj("AdminPower")
randomize
random = md5(rnd*99999999)
conn.db "update {pre}Admin set LastLoginTime='"&now()&"',LastLoginIP='"&ip&"',M_Random='"&random&"' where UserName='"&username&"'","execute"
wCookie "check"&rCookie("UserName"),md5(agent&ip&random)
echo "<script>top.location.href='index.asp';</script>"
end if
end if
echoErr "登陆错误","自定义错误",errStr
End Sub
Sub login
%>
<html>
<head>
<title><%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body background="images/000.jpg">
<%
Dim objFSO, objFolderObject, objFileCollection, objFile
Dim intFileNumberToUse, intFileLooper
Dim objImageFileToUse
Dim strImageSrcText
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObject = objFSO.GetFolder(Server.MapPath(indexpic))
Set objFSO = Nothing
Set objFileCollection = objFolderObject.Files
Set objFolderObject = Nothing
Randomize()
intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1
intFileLooper = 1
For Each objFile in objFileCollection
If intFileLooper = intFileNumberToUse Then
Set objImageFileToUse = objFile
Exit For
End If
intFileLooper = intFileLooper + 1
Next
Set objFileCollection = Nothing
strImageSrcText = indexpic & objImageFileToUse.Name
Set objImageFileToUse = Nothing
%>
<form method="post" action="?action=check" name="formsearch">
<div style="width:100%;height:100%;text-align:center;">
<div style="margin-top:120px;width:460px;height:307px;background:url(images/bg_login.jpg);display:inline;">
<div style="float:center;margin-top:10px;width:440px;height:238px;background:url(<%=strImageSrcText%>) no-repeat;padding-top:20px;font-size:<%=indextxtsize%>;color:<%=indextxtcolor%>;text-align:<%=indextxtcenter%>;padding-left:10px;line-height:5px;">
<%=indextxt%>
</div>
<div style="float:center;width:440px;height:50px;padding-top:10px;font-size:12px;font-weight:bold;color:#009900;text-align:left;">
用户名：<input name="input_name" type="text" id="input_name" class="txt" style="width:60px;height:20px;"/>
密 码：<input name="input_pwd" type="password" id="input_pwd" class="txt" style="width:60px;height:20px;"/>
验证码：<input name="input_yzm" type="text" id="input_yzm" class="txt" style="width:40px;height:20px;" /> <img src="inc/code.asp" alt="验证码" />
<input name="btn" type="submit" class="btn" value="确 定" />
</div>
</div>
<div style="float:center;width:440px;height:50px;font-family:Arial, Helvetica, sans-serif;padding-top:10px;font-size:12px;color:#A1A8B8;text-align:center;">
<%copy%>
</div>
</div>
</form>
</div>
<script src="images/menu.js" type="text/javascript"></script>
<script type="text/javascript">focusLogin();</script>
</html>
<%
End Sub
Sub main
checkPower
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gbk">
<link rel="stylesheet" href="images/admin.css" type="text/css" media="all" />
<script src="js/common.js" type="text/javascript"></script>
<script src="images/main.js" type="text/javascript"></script>
</head>
<body style="margin: 0px" scroll="no">
<table cellpadding="0" cellspacing="0" width="100%" height="100%">
<tr>
<td colspan="2" height="90"><div class="header">
<div class="logo">
<div style="float:center;margin-top:0px;width:180px;height:84px;background:url(<%=logourl%>) no-repeat;"></div>
</div>
<div class="pannel">
<p><span id="upcacheresult" style="color:#FF0000"></span> 您好, <em><%=rCookie("UserName")%> <% if clng(rCookie("AdminPower"))=0 then %>[户主]<% else %>[成员]<%end if%></em> [ <a href="index.asp?action=logout" target="_top">退出</a> ]</p>
</div>
<div class="navbg"></div>
<div class="nav">
<!--上部菜单 changeMenu(左侧菜单id号后部分，右侧默认打开的url)-->
<ul id="topmenu">
<%
dim bigMenuArray,bigMenuI,bigMenuFlag,bigMenuNum,bigMenuFlagStr : bigMenuArray=getBigMenuInfo(rCookie("AdminPower"))
bigMenuNum=ubound(bigMenuArray,1)
for bigMenuI=0 to bigMenuNum
bigMenuFlag=bigMenuArray(bigMenuI,1)
if bigMenuI=0 then bigMenuFlagStr="'"&bigMenuFlag&"'" else bigMenuFlagStr=bigMenuFlagStr&","&"'"&bigMenuFlag&"'"
%>
<li><em><a href="#" id="header_<%=bigMenuFlag%>" onClick="changeMenu('<%=bigMenuFlag%>', '<%=bigMenuArray(bigMenuI,2)%>');"><%=bigMenuArray(bigMenuI,0)%></a></em></li>
<%
next
%>
</ul>
<!--当前所在位置导航 js动态插入-->
<div class="iamhere">
<p id="admincpnav"></p>
</div>
<div class="navbd"></div>
</div>
</div></td>
</tr>
<tr>
<td valign="top" width="180" class="menutd"><div id="leftmenu" class="menu">
<!--左菜单 ul id号为menu_XXXX形式，XXXX与上部导航菜单传递参数、JS中topMenus数组一至，li a中的链接与上部导航菜单传递参数一至-->
<%
dim smallMenuArray,smallMenuNum,smallMenuI,sSmallMenuArr,sSmallMenuArr2,sSmallMenuArrLen
smallMenuArray=getSmallMenuInfo(rCookie("AdminPower"))
for bigMenuI=0 to bigMenuNum
bigMenuFlag=bigMenuArray(bigMenuI,1)
%>
<ul id="menu_<%=bigMenuFlag%>" style="display: none">
<%
sSmallMenuArr=split(smallMenuArray(bigMenuI),"|")
sSmallMenuArrLen=ubound(sSmallMenuArr)
for smallMenuI=0 to sSmallMenuArrLen
if isNul(sSmallMenuArr(smallMenuI)) then
echo "<li class=""menuspace""><a></a></li>"
else
sSmallMenuArr2=split(sSmallMenuArr(smallMenuI),",")
%>
<li><a href="<%=sSmallMenuArr2(1)%>" target="main"><%=sSmallMenuArr2(0)%></a></li>
<%
end if
next
%>
</ul>
<%
next
%>
</div></td>
<td valign="top" width="100%" class="maincontent"><iframe src="?action=notice" name="main" width="100%" height="100%" frameborder="0"scrolling="yes" style="overflow: visible;"></iframe></td>
</tr>
</table>
<div class="footer">
<p><%Call Label(2)%></p>
</div>
<script src="images/menu.js" type="text/javascript"></script>
<script type="text/JavaScript">
var topMenus = new Array(<%=bigMenuFlagStr%>);//大菜单参数数组
var menu_key = initMenu('leftmenu');//初始化
changeMenu(menu_key ? menu_key : 'index');
</script>
</body>
</html>
<%
End Sub
%>